COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	TITLE TEST
 00003 ENDMK
⊗;
TITLE TEST

	↓TBIT3←←1B20
	↓TBIT2←←1B19
	↓TBIT1←←1B18

	↓FOLDED ←← 1B11
	↓VISIBLE ←← 1B12
	↓POTENT ←← 1B13

	DEFINE MARKZ(Q,BITS){
	IFE <BITS>⊗-22,{MOVEI BITS}
	IFN <BITS>⊗-22,{MOVSI <BITS>⊗-22}
	ANDCAM (Q)}

SA:	MARKZ 1,FOLDED+VISIBLE+POTENT
	MARKZ 1,TBIT1+TBIT2+TBIT3
	TLNE 0,(FOLDED+VISIBLE)
END SA